home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 131 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 131 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / C / tai.asm < prev    next >
Assembly Source File  |  1990-03-23  |  4KB  |  116 lines
  1. ******************************
  2. * Programm: Tai              *
  3. * Zweck:    Text und blinken *
  4. * Datum:    23.03.90         *
  5. ******************************
  6.  
  7. _SysBase         equ   4            ;Basis von Exec
  8. _LVOOpenLibrary  equ    -552        ;Library öffnen
  9. _LVOCloseLibrary equ    -414        ;Library schließen
  10. _LVOOutput       equ    -60         ;DOS: Output-Handle holen
  11. _LVOWrite        equ    -48         ;Ausgabe
  12.  
  13. ********************** DOS/Library öffnen **********************
  14.  
  15. _main   move.l   #dosname,a1          ;Name der DOS-Lib
  16.         moveq    #0,d0                ;Version egal
  17.         move.l   _SysBase,a6          ;Basis Exec
  18.         jsr      _LVOOpenLibrary(a6)  ;DOS-Lib öffnen
  19.         tst.l    d0                   ;Fehler?
  20.         beq      ende                 ;wenn Fehler, Ende
  21.         move.l   d0,_DOSBase          ;Zeiger merken
  22.  
  23. ********************* Ausgabe-Handle ermitteln ****************
  24.  
  25.         move.l   _DOSBase,a6          ;DOS-Funktion rufen
  26.         jsr      _LVOOutput(a6)       ;Hole Output-Handle
  27.         move.l   d0,d4                ;und in d4 merken
  28.  
  29. ********************* Text ausgeben ***************************
  30.  
  31.         move.l   d4,d1                ;Screen löschen
  32.         move.l   #cls,d2
  33.         moveq    #1,d3
  34.         move.l   _DOSBase,a6
  35.         jsr      _LVOWrite(a6)
  36.  
  37.         move.l   d4,d1
  38.         move.l   #msg1,d2             ;TAIFUN PD-Disketten
  39.         moveq    #27,d3
  40.         move.l   _DOSBase,a6
  41.         jsr      _LVOWrite(a6)
  42.  
  43.         move.l   d4,d1
  44.         move.l   #msg2,d2             ;vom PD-Vertrieb
  45.         moveq    #16,d3
  46.         move.l   _DOSBase,a6
  47.         jsr      _LVOWrite(a6)
  48.  
  49.         move.l   d4,d1
  50.         move.l   #msg3,d2             ;Stefan Ossowski
  51.         moveq    #16,d3
  52.         move.l   _DOSBase,a6
  53.         jsr      _LVOWrite(a6)
  54.  
  55.         move.l   d4,d1
  56.         move.l   #msg4,d2             ;Veronikastr. 33
  57.         moveq    #15,d3
  58.         move.l   _DOSBase,a6
  59.         jsr      _LVOWrite(a6)
  60.  
  61.         move.l   d4,d1
  62.         move.l   #msg5,d2             ;4300 Essen 1
  63.         moveq    #13,d3
  64.         move.l   _DOSBase,a6
  65.         jsr      _LVOWrite(a6)
  66.  
  67.         move.l   d4,d1
  68.         move.l   #msg6,d2             ;Tel. 0201-788778
  69.         moveq    #17,d3
  70.         move.l   _DOSBase,a6
  71.         jsr      _LVOWrite(a6)
  72.  
  73.         move     #200,d6
  74. loop    move.l   d4,d1
  75.         move.l   #blinken,d2             ;Blinken, Bildschirmblitz
  76.         moveq    #1,d3
  77.         move.l   _DOSBase,a6
  78.         jsr      _LVOWrite(a6)
  79.     dbra     d6,loop
  80. ********************* Library schließen ***********************
  81.  
  82.         move.l   _DOSBase,a1             ;Basis der Lib
  83.         move.l   _SysBase,a6             ;Basis Exec
  84.         jsr      _LVOCloseLibrary(a6)    ;Funktion "Schließen"
  85.  
  86. ********************* Falls Fehler Ende ***********************
  87.  
  88. ende    rts            ;Return zum CLI
  89.  
  90. ***************************************************************
  91. ********************* Datenbereich ****************************
  92. ***************************************************************
  93.  
  94. _DOSBase   dc.l   0
  95.  
  96. dosname    dc.b    'dos.library',0
  97.            cnop    0,2
  98. cls        dc.b    12,10
  99.            cnop    0,2
  100. msg1       dc.b    'T A I F U N   PD-Disketten',10
  101.            cnop    0,2
  102. msg2       dc.b    'vom PD-Vertrieb',10
  103.            cnop    0,2
  104. msg3       dc.b    'Stefan Ossowski',10
  105.            cnop    0,2
  106. msg4       dc.b    'Veronikastr.33',10
  107.            cnop    0,2
  108. msg5       dc.b    '4300 Essen 1',10
  109.            cnop    0,2
  110. msg6       dc.b    'Tel. 0201-788778',10
  111.            cnop    0,2
  112. blinken    dc.b    7
  113.            cnop    0,2
  114.  
  115.  
  116.